<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>11</cardCount>
<cardID>2878</cardID>
<listID>5709</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal runHilite, External_Error, StackName, menuVis, msgVisput "" into External_Errorput false into runHiliteput true into menuVisput false into msgVisput word two of the long name of this stack into tmpput length(tmp) into lenput char 2 to (len-1) of tmp into StackNameset lockscreen to truepush cardgo to card "Add"send InitAddgo to card "Paste"send InitPastepop cardset lockscreen to falseend openStack-- determine line hit for mouse down in fieldfunction Clicklineif the style of the target is "scrolling" thenput the scroll of the target into selseput zero into send ifreturn (trunc((s ¬+ (item two of the clickloc) ¬- (item two of the rect of the target)) ¬div the textheight of the target) + one)end Clickline-- should be simpler!function number_of_cards_of_this_backgroundif the version >= 1.2 thenreturn the number of cds of this bgend ifset lockscreen to trueput the name of this card into startput 1 into countgo to next card of this backgroundrepeat while (the name of this card) <> startadd 1 to countgo to next card of this backgroundend repeatset lockscreen to falsereturn countend number_of_cards_of_this_backgroundon AddCard type, nameif type = "XCMD" thengo to last card of background "Commands"else if type = "XFCN" thengo to last card of background "Functions"else if type = "ICON" thengo to last card of background "Icons"else if type = "CURS" thengo to last card of background "Cursors"else if type = "snd " thengo to last card of background "Sounds"elseexit AddCardend ifAddNewCard nameend AddCard-- deleteCard & newCard, be fancy with next and prev buttonson deleteCardif number_of_cards_of_this_background() = 2 thenset visible of background button "Next" to falseset visible of background button "Prev" to falseset visible of background button "Scan" to falseelseset visible of background button "Next" to trueset visible of background button "Prev" to trueset visible of background button "Scan" to trueend ifend deleteCardon newCardif number_of_cards_of_this_background() = 1 thenset visible of background button "Next" to falseset visible of background button "Prev" to falseset visible of background button "Scan" to falseelseset visible of background button "Next" to trueset visible of background button "Prev" to trueset visible of background button "Scan" to trueend ifend newCardon doHiliteglobal runHiliteif runHilite and not (visible of msg) thenhighlight aend ifput not runHilite into runHiliteend doHiliteon resetHighlightput "" into background field "HighlightAreas"end resetHighlight-- deleteRes & renameRes, used for "card" resources e.g. XCMDson deleteRes assocglobal External_Error, StackNameif number_of_cards_of_this_background() = 1 thenanswer "Sorry, you can't delete the last" ¬&& background field "resType" with "OK"exit deleteReselse if (the version >= 1.2) thenif (the cantDelete of this card) thenanswer "This resource is required by this stack!"exit deleteResend ifend ifanswer "PERMANENTLY delete" && ¬background field "Name" & "?" with "Yes" or "No"if it = "Yes"thenResHandle "dele", StackName, background field "resType", background field "Name"if "ok" is in External_Error thenif assoc <> "" thenrepeat while number of lines in assoc > 1 doput line 1 of assoc into rnamedelete line 1 of assocput word 1 of rname into rtypedelete word 1 of rnameResHandle "dele", StackName, rtype, rnameend repeatend ifput the name of next card of this background into destdoMenu "Delete Card"go to destelseanswer "Delete failed:" && External_
